# martingale prediction
MartingalePredict <- function(timeSeries){
  return(as.vector(timeSeries[length(timeSeries)]))
}

# martingalePredict(zf)
# 
# ret <-ownPredict(zf,martingalePredict,10000,function(x) return(x), simDeTrans)
# ret <-ownPredict(cl,martingalePredict,10000,function(x) return(x), simDeTrans)
# ret <-ownPredict(google,martingalePredict,10000,function(x) return(x), simDeTrans)
# 
# plot(ret$x2)
# lines(ret$y2)
# ret$aafe